約 4,996,509 件
https://w.atwiki.jp/abpg/pages/40.html
Under Construction EXCEL FORMAT DOWNLOAD. 1.TYPE-POOLS OLE 2.(Definition) DATA AP TYPE OLE2_OBJECT. 3.CREATE OBJECT AP excel.application . 4.CALL METHOD OF AP Workbooks = wb. 5.CALL METHOD OF AP Add . 6.CALL METHOD OF AP Worksheets = sheet exporting #1 = 1 7.CALL METHOD OF Cells = Cells 8.CALL METHOD OF Cells = Select . 9.CALL METHOD OF sheet Range = range Exporting #1 A . 10.CALLMETHOD RANGE Select . Download ClipBoard CALL METHOD CL_GUI_FRONTEND_SERVICES= CLIPBOARD_EXPORT.
https://w.atwiki.jp/yoshinabu/pages/81.html
Microsoft Excel 2007 マクロで正規表現 Excel 2007のマクロで正規表現を使った時のメモです。 正規表現を使用する必要はなかったのですが、何か今後のためになるかと思って使ってみました。 私が実現したいことは以下 ワークブック内の全てのシートに対して実行したい 特定のセルに入っている"100 ml"の様な値を100とmlに分けたい(どうやら%は数値とくっついているようなので別に処理しないといけない) 具体的には 項目名1 項目名2 項目名3 項目1 100 ml を 項目名1 項目名2 項目名3 項目1 100 ml みたいな。 以下手順です。 1.Excelを開く 言わずもがな。 2.Visual Basicを開く Excelを開いた状態でAlt + F11を押す。 3.VBScriptで正規表現を使用できるようにする [ツール]-[参照設定]から、Microsoft VBScript Regular Expression 5.5をチェックしてOKをクリック。 4.コードを記述する。 初心者ですので見栄えはあれですけど、とりあえず以下のコードで自分がやりたいことが実現できました。%の処理についてはまだやってません。そのうちかきます。 matchcollection, match, submatchesの関係を理解するのが自分にはちょっと時間がかかりました。 Sub ParseUnit() Dim i As Long, msg As String Dim RE As New VBScript_RegExp_55.RegExp Dim mc As VBScript_RegExp_55.MatchCollection Dim m As VBScript_RegExp_55.Match Dim sm As VBScript_RegExp_55.SubMatches Dim sheet As Worksheet For Each sheet In Worksheets sheet.Activate 数値 空白 単位となる %は数値とくっついてるので再考 strPattern = "^(.*)\s(.*)$" With RE .Pattern = strPattern .IgnoreCase = True .Global = False 1行目は項目なので飛ばす i = 2 PIDが存在する行まで実行 Do Until Cells(i, 1).Value = Empty If .Test(Cells(i, 4)) Then Set mc = .Execute(Cells(i, 4)) Set m = mc.Item(0) Set sm = m.SubMatches 数値はそのままの位置に Cells(i, 4).Value = sm.Item(0) 単位を一つ右のセルに移動 Cells(i, 5).Value = sm.Item(1) End If i = i + 1 Loop End With Next MsgBox "end" Set mc = Nothing Set RE = Nothing End Sub
https://w.atwiki.jp/mdk_0711/pages/15.html
FAQ マクロのセキュリティレベルはどうやって変えるの? メニューバー [ツール(T)] - [オプション(O)] を選択し、オプション画面で[セキュリティ] タブを選択する。 マクロセキュリティ(S) ボタンを押下し、[セキュリティ]ダイアログで適当なレベルを設定し、OKボタンを押下する。 作成したファイルを読み取り専用推奨にしたい メニューバー [ツール(T)] - [オプション(O)] を選択し、オプション画面で[セキュリティ] タブを選択する。 [読み取り専用を推奨する]チェックボックスにチェックを入れる 新しい Book のデフォルト設定を自分用に設定したい メニューバー [ツール(T)] - [オプション(O)] を選択し、オプション画面で[全般] タブを選択する。 以下の項目が変更可能なので、自分の好みに設定する 新しいブックのシート数 標準フォント( フォントの種類 と フォントサイズ ) カレントフォルダ 起動時にすべてのファイルを開くフォルダ ユーザ名 ファイルの個人情報を消したい for Excel 2003 メニューバー [ツール(T)] - [オプション(O)] を選択し、オプション画面で[セキュリティ] タブを選択する。 [保存時にファイルのプロパティから個人情報を削除する(R)]チェックボックスにチェックを入れる。 ファイルの個人情報を消したい for Excel 2007 そもそも保存しない Officeボタンから [Excelのオプション(I)] を選択し、オプション画面で[セキュリティセンター] タブを選択する。 セキュリティセンターの設定(T)ボタンを押下し、設定画面から [保存時にファイルのプロパティから個人情報を削除する(R)]チェックボックスにチェックを入れる。 ファイルから消す Officeボタンから [配布準備(E)] - [ドキュメント検査(I)] を選択する。 ドキュメント画面から、[ドキュメントのプロパティと個人情報]チェックボックスにチェックを入れ、検査ボタンを押下する。 見つかった場合、すべて削除ボタンが表示されるので押下する。
https://w.atwiki.jp/kuronekosoft/pages/19.html
黒猫 SQL Studio で Microsoft Excel に接続するには、OLE DB Provider を使用します。 ドライバは、Microsoft提供の Microsoft Jet 4.0 OLE DB Provider を使用します。 [データベース]-[データベースに接続...]をクリックします。 [データベース接続]ダイアログの[OleDB接続]タブを選択し、[新規追加]ボタンをクリックします。 [接続名]に接続を識別する任意の名前を入力します。 [接続文字列の編集]ダイアログで[接続文字列]の[...]ボタンをクリックします。 OLE DB プロバイダの一覧から、Microsoft Jet 4.0 OLE DB Provider を選択します。 [次へ]ボタンをクリックします。 [データベース名を...]ボックスの[...]をクリックします。 [ファイルの種類]を[すべてのファイル]に変更します。 接続するxlsファイルを選択します。 [ユーザー名]と[パスワード]を入力します。(空白でOK) 必要に応じて[パスワードを保存する]にチェックします。 [すべて]タブを選択します。 一覧から[Extended Properties]を選択し、[値の編集]をクリックします。 [プロパティの値]に Excel 8.0;HDR=YES; と入力し、[OK]ボタンをクリックします。 [接続のテスト]ボタンをクリックして、接続をテストします。 [OK]ボタンをクリックします。 [接続文字列の編集]ダイアログの[OK]ボタンをクリックします。 [データベース接続]ダイアログの[接続]ボタンをクリックします。 Excelシート名がテーブル名に対応します。 テーブル名の末尾には自動的に$が付きます。 SQLを発行する場合は、引用符で括る必要があります。 例) SELECT * FROM [Sheet1$] レコードの挿入・更新は可能ですが、削除はできません。 ご自由にコメントをお書き込みください 名前 コメント
https://w.atwiki.jp/guernica/pages/5.html
Excel ●ショートカットキー一覧 ●ユーザー定義
https://w.atwiki.jp/ipubluedictionary/pages/14.html
Excel関連のアレコレ
https://w.atwiki.jp/lllit/pages/15.html
タグ [ショートカット] [Excel] [Top]
https://w.atwiki.jp/acil/pages/41.html
進捗管理表のフォーマットサンプル ガントチャート-free 開発マイルストーン インサート文生成マクロExcelのシートに記述したデータを、SQLのInsert文に変換するマクロ ■使用例 以下の要領でシートにデータを記述します。 1行目に列名 2行目に列の型 3行目以降は列の値 最後の次の行の1列目のセルに、エンドマーク『#END』 上記の要領で書き上げたシートが下図です。(クリックで拡大) ExcelからSQLのINSERT文を作成するマクロ Option Explicit Sub createInsertSql() Dim newbook As Workbook Dim currentCell As Range 前処理 Dim srcSheet As Worksheet Set srcSheet = ActiveSheet Dim targetRange As Range Set targetRange = srcSheet.UsedRange INSERT文の前半 Dim head As String head = "INSERT INTO " srcSheet.Name " (" Dim first As Boolean first = True Dim currentColumnIndex As Integer For currentColumnIndex = 1 To targetRange.Columns.Count If (first) Then first = False Else head = head "," End If Set currentCell = srcSheet.Cells(1, currentColumnIndex) head = head currentCell.Value Next head = head ") " 新しいBook作成 Set newbook = Workbooks.Add INSERT文のvalues以降 Dim currentRowIndex As Integer For currentRowIndex = 2 To targetRange.Rows.Count Dim sql As String sql = head "values (" first = True For currentColumnIndex = 1 To targetRange.Columns.Count If (first) Then first = False Else sql = sql "," End If Set currentCell = srcSheet.Cells(currentRowIndex, currentColumnIndex) If IsNull(currentCell) Or Trim(currentCell.Value) = "" Then sql = sql "null" ElseIf IsNumeric(currentCell.Value) Then sql = sql currentCell.Value Else sql = sql " " currentCell.Value " " End If Next sql = sql ");" newbook.ActiveSheet.Cells(currentRowIndex - 1, 1).Value = sql Next End Sub EOF
https://w.atwiki.jp/aru_notebook/pages/25.html
関数リファレンス http //office.microsoft.com/ja-jp/excel/CH062528191041.aspx
https://w.atwiki.jp/shiwon_u/pages/24.html
Excel 自作関数